home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / program / qbprog.EXE / TAKIM.BAS < prev    next >
Encoding:
BASIC Source File  |  1995-12-13  |  2.5 KB  |  58 lines
  1. 5  '(c) SysOp of The NoName-BBS: ->Ersin<- >>;-)
  2. 6  'The NoName-BBS: +90352-2353231,14400,8N1,24hrs,1.2+Gigs OnL.,4+Gigs OffL.
  3. 10 CLEAR:SCREEN 0,0,0:KEY OFF:COLOR 15,0,0:CLS:BEEP
  4. 20 C1$=CHR$(40):C2$=CHR$(99):C3$=CHR$(41):C4$=CHR$(32)
  5. 25 C5$=CHR$(67):C6$=CHR$(111):C7$=CHR$(112):C8$=CHR$(121)
  6. 30 C9$=CHR$(114):C10$=CHR$(105):C11$=CHR$(103):C12$=CHR$(104)
  7. 35 C13$=CHR$(116):C15$=CHR$(49):C16$=CHR$(57):C18$=CHR$(51)
  8. 40 C20$=CHR$(69):C22$=CHR$(115):C24$=CHR$(110):C25$=CHR$(83)
  9. 60 C27$=CHR$(102):LOCATE 13,26:PRINT C1$;C2$;C3$;C4$;C5$;C6$;C7$;C8$;C9$;
  10. 70 PRINT C10$;C11$;C12$;C13$;C4$;C15$;C16$;C16$;C18$;C4$;C20$;C9$;C22$;C10$;
  11. 80 PRINT C24$;C25$;C6$;C27$;C13$:FOR P=0 TO 50000!:NEXT P:CLS:COLOR 7,0,0
  12. 90 SCREEN 0,0,0:WIDTH 80:COLOR 8,11,9:CLS:KEY OFF:BEEP
  13. 100 LOCATE 13,30:INPUT"Mesajìnìz :",AD$:CLS
  14. 110 IF LEN(AD$)>80 THEN BEEP:GOTO 90
  15. 120 COLOR 8,11,9:CLS:LOCATE 11,34:COLOR 14,4:PRINT" 1-Galatasaray "
  16. 130 LOCATE 12,34:COLOR 14,1:PRINT" 2-Fenerbahçe  "
  17. 140 LOCATE 13,34:COLOR 9,5:PRINT" 3-Trabzon     "
  18. 150 LOCATE 14,34:COLOR 15,0:PRINT" 4-Beƒiktaƒ    "
  19. 160 LOCATE 15,34:COLOR 15,4:PRINT" 5-Türkiye     "
  20. 170 LOCATE 16,34:COLOR 7,0:PRINT" 6-Çìk샠      "
  21. 180 LOCATE 18,34:COLOR 0,11:PRINT" Seçiminiz !..."
  22. 190 Z$=INPUT$(1):A=VAL(Z$):CLS
  23. 200 IF A=1 THEN C1=14:C2=4:GOSUB 470
  24. 210 IF A=2 THEN C1=14:C2=1:GOSUB 470
  25. 220 IF A=3 THEN C1=9:C2=5:GOSUB 470
  26. 230 IF A=4 THEN C1=15:C2=0:GOSUB 470
  27. 240 IF A=5 THEN C1=15:C2=4:GOSUB 470
  28. 250 IF A=6 THEN 370
  29. 260 BEEP:GOTO 120
  30. 270 CLS:LOCATE 13,22:PRINT"2 parça mì?...4 parça mì?...(2/4) :"
  31. 280 C$=INPUT$(1):C=VAL(C$):CLS
  32. 290 IF C=4 THEN N=16
  33. 300 IF C=2 THEN N=22
  34. 310 IF C<>2 AND C<>4 THEN BEEP:GOTO 270
  35. 320 FOR K=1 TO N
  36. 330 FOR I=1 TO 80
  37. 340 LOCATE K,I:COLOR C1:PRINT"█";
  38. 350 LOCATE 23-K,81-I:COLOR C2:PRINT"█";:NEXT I:NEXT K:GOSUB 540
  39. 360 A$=INPUT$(1):COLOR 7,0,0:CLS:BEEP:RETURN
  40. 370 COLOR 7,0,0:KEY ON:CLS:BEEP:END
  41. 380 CLS:LOCATE 13,22:PRINT"2 parça mì?...4 parça mì?...(2/4) :"
  42. 390 F$=INPUT$(1):F=VAL(F$):CLS
  43. 400 IF F=4 THEN L=60
  44. 410 IF F=2 THEN L=80
  45. 420 IF F<>2 AND F<>4 THEN BEEP:GOTO 380
  46. 430 FOR K=1 TO L STEP 2
  47. 440 FOR I=1 TO 22:IF K=80 THEN 460
  48. 450 LOCATE I,K:COLOR C1:PRINT"██":LOCATE 23-I,80-K:COLOR C2:PRINT"██":NEXT I:NEXT K:GOSUB 540
  49. 460 A$=INPUT$(1):COLOR 7,0,0:CLS:BEEP:RETURN
  50. 470 CLS:LOCATE 13,24:PRINT"Enine mi?...Boyuna mì?...(E/B) :"
  51. 480 X$=INPUT$(1):CLS
  52. 490 IF X$="B" THEN CLS:GOTO 380
  53. 500 IF X$="b" THEN CLS:GOTO 380
  54. 510 IF X$="E" THEN CLS:GOTO 270
  55. 520 IF X$="e" THEN CLS:GOTO 270
  56. 530 BEEP:GOTO 470
  57. 540 H=INT(40-(LEN(AD$)/2)):LOCATE 23,H:PRINT AD$:RETURN
  58.